home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / mac / EGYPTW.DIR / 01709_Script_On the River < prev    next >
Text File  |  1995-09-13  |  2KB  |  94 lines
  1. global gQuest, gBeenClicked
  2.  
  3. on ERiverRollovers
  4.   set gBeenClicked = 0
  5.   if (not(CheckClickedStatus(gQuest))) then
  6.     if the mousecast = the castnum of sprite 6 then
  7.       repeat while the mousecast = the castnum of sprite 6 or rollover(27)
  8.         EgyptCursor
  9.         puppetsprite 27, true
  10.         set the locH of sprite 27 to 551
  11.         set the locV of sprite 27 to 244
  12.         updatestage
  13.         if the mousedown then
  14.           set GBeenClicked = 1
  15.         else
  16.           if gBeenClicked = 1 then
  17.             repeat while gBeenClicked = 1
  18.               RiverAnimates
  19.             end repeat
  20.           end if
  21.         end if
  22.       end repeat
  23.       set the locH of sprite 27 to 951
  24.       updatestage
  25.       puppetsprite 27, false
  26.     else
  27.       if rollover(7) then
  28.         ArrowCursor
  29.         repeat while rollover(7)
  30.           set the locH of sprite 28 to 437
  31.           set the locV of sprite 28 to 195
  32.           updatestage
  33.         end repeat
  34.         set the locH of sprite 28 to 937
  35.         updatestage
  36.       else
  37.         if rollover(41) then
  38.           HandCursor
  39.         else
  40.           if rollover(42) then
  41.             HandCursor
  42.           else
  43.             ArrowCursor
  44.           end if
  45.         end if
  46.       end if
  47.     end if
  48.   end if
  49.   RandomQuestion(gQuest)
  50. end
  51.  
  52. on RiverAnimates
  53.   ArrowCursor
  54.   set gAnimationcast1 = 582
  55.   set the locH of sprite 27 to 851
  56.   set count = 0
  57.   puppetsound "SE2403401.AIF"
  58.   repeat while count < 2 and (the mouseUp)
  59.     set the castnum of sprite 6 = gAnimationcast1 + 1
  60.     updatestage
  61.     wait .5
  62.     if (the mousedown) then 
  63.       exit repeat
  64.     end if
  65.     set the castnum of sprite 6 = gAnimationcast1 + 2
  66.     updatestage
  67.     if (the mousedown) then 
  68.       exit repeat
  69.     end if
  70.     wait .5
  71.     set the castnum of sprite 6 = gAnimationcast1 + 1
  72.     updatestage
  73.     if (the mousedown) then 
  74.       exit repeat
  75.     end if
  76.     wait .5
  77.     set the castnum of sprite 6 = gAnimationcast1
  78.     updatestage
  79.     if (the mousedown) then 
  80.       set animating = 0
  81.       exit repeat
  82.     end if
  83.     wait .5
  84.     set count = count + 1
  85.   end repeat
  86.   set the castnum of sprite 6 = gAnimationcast1
  87.   updatestage
  88.   sound STOP 1
  89.   set gBeenClicked = 0
  90. end
  91.  
  92.  
  93.  
  94.